home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 42
/
Amiga Format AFCD42 (Issue 126, Aug 1999).iso
/
-serious-
/
hardware
/
zip4mat
/
formatzfs
< prev
next >
Wrap
Text File
|
1999-05-14
|
370b
|
12 lines
requestchoice >env:FM "" "Are you sure you want to format this ZIP disk..? " Yes No
if val $FM eq 1
rdprepx -u 5 -r ZIP_sfs.list -q1 -t -d 1230scsi.device
mount >nil: ZIP: from ZIP_sfs.list
MFORMAT DRIVE ZIP:
COPY ZIP_icon zip:disk.info
echo "*N Please enter your disk label."
relabel >nil: zip: ?
ziptool >nil: zip: eject
endif
delete >nil: env:fm